home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 July: Mac OS SDK / Dev.CD Jul 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Interfaces / AIncludes / Components.a < prev    next >
Encoding:
Text File  |  1996-01-24  |  14.6 KB  |  598 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        Components.a
  3. ;
  4. ;    Contains:    Component Manager Interfaces.
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Package:    Universal Interfaces 2.2 in “MPW” on ETO #20
  8. ;
  9. ;    Copyright:    © 1984-1995 by Apple Computer, Inc.
  10. ;                All rights reserved.
  11. ;
  12. ;    Bugs?:        If you find a problem with this file, use the Apple Bug Reporter
  13. ;                stack.  Include the file and version information (from above)
  14. ;                in the problem description and send to:
  15. ;                    Internet:    apple.bugs@applelink.apple.com
  16. ;                    AppleLink:    APPLE.BUGS
  17. ;
  18. ;
  19.  
  20.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  21. __COMPONENTS__ SET 1
  22.  
  23.  
  24.     IF &TYPE('__TYPES__') = 'UNDEFINED' THEN
  25.     include 'Types.a'
  26.     ENDIF
  27. ;        include 'ConditionalMacros.a'                                ;
  28.  
  29.     IF &TYPE('__MIXEDMODE__') = 'UNDEFINED' THEN
  30.     include 'MixedMode.a'
  31.     ENDIF
  32.  
  33. kAppleManufacturer                EQU        'appl'                ; Apple supplied components 
  34. kComponentResourceType            EQU        'thng'
  35.  
  36. kAnyComponentType                EQU        0
  37. kAnyComponentSubType            EQU        0
  38. kAnyComponentManufacturer        EQU        0
  39. kAnyComponentFlagsMask            EQU        0
  40.  
  41. cmpWantsRegisterMessage            EQU        1 << 31
  42.  
  43. kComponentOpenSelect            EQU        -1                    ; ComponentInstance for this open 
  44. kComponentCloseSelect            EQU        -2                    ; ComponentInstance for this close 
  45. kComponentCanDoSelect            EQU        -3                    ; selector # being queried 
  46. kComponentVersionSelect            EQU        -4                    ; no params 
  47. kComponentRegisterSelect        EQU        -5                    ; no params 
  48. kComponentTargetSelect            EQU        -6                    ; ComponentInstance for top of call chain 
  49. kComponentUnregisterSelect        EQU        -7                    ; no params 
  50.  
  51. ; Component Resource Extension flags 
  52. componentDoAutoVersion            EQU        (1 << 0)
  53. componentWantsUnregister        EQU        (1 << 1)
  54. componentAutoVersionIncludeFlags EQU        (1 << 2)
  55. componentHasMultiplePlatforms    EQU        (1 << 3)
  56.  
  57. ; Set Default Component flags 
  58. defaultComponentIdentical        EQU        0
  59. defaultComponentAnyFlags        EQU        1
  60. defaultComponentAnyManufacturer    EQU        2
  61. defaultComponentAnySubType        EQU        4
  62. defaultComponentAnyFlagsAnyManufacturer EQU        (defaultComponentAnyFlags + defaultComponentAnyManufacturer)
  63. defaultComponentAnyFlagsAnyManufacturerAnySubType EQU        (defaultComponentAnyFlags + defaultComponentAnyManufacturer + defaultComponentAnySubType)
  64.  
  65. ; RegisterComponentResource flags 
  66. registerComponentGlobal            EQU        1
  67. registerComponentNoDuplicates    EQU        2
  68. registerComponentAfterExisting    EQU        4
  69.  
  70. ComponentDescription     RECORD    0
  71. componentType             ds.l   1        ; offset: $0 (0)        ; A unique 4-byte code indentifying the command set 
  72. componentSubType         ds.l   1        ; offset: $4 (4)        ; Particular flavor of this instance 
  73. componentManufacturer     ds.l   1        ; offset: $8 (8)        ; Vendor indentification 
  74. componentFlags             ds.l   1        ; offset: $C (12)        ; 8 each for Component,Type,SubType,Manuf/revision 
  75. componentFlagsMask         ds.l   1        ; offset: $10 (16)        ; Mask for specifying which flags to consider in search, zero during registration 
  76. sizeof                     EQU *            ; size:   $14 (20)
  77.                         ENDR
  78.  
  79. ; typedef struct ComponentDescription  ComponentDescription
  80. ResourceSpec             RECORD    0
  81. resType                     ds.l   1        ; offset: $0 (0)        ; 4-byte code  
  82. resID                     ds.w   1        ; offset: $4 (4)
  83. sizeof                     EQU *            ; size:   $6 (6)
  84.                         ENDR
  85.  
  86. ; typedef struct ResourceSpec  ResourceSpec
  87. ComponentResource         RECORD    0
  88. cd                         ds     ComponentDescription ; offset: $0 (0) ; Registration parameters 
  89. component                 ds     ResourceSpec ; offset: $14 (20)    ; resource where Component code is found 
  90. componentName             ds     ResourceSpec ; offset: $1A (26)    ; name string resource 
  91. componentInfo             ds     ResourceSpec ; offset: $20 (32)    ; info string resource 
  92. componentIcon             ds     ResourceSpec ; offset: $26 (38)    ; icon resource 
  93. sizeof                     EQU *            ; size:   $2C (44)
  94.                         ENDR
  95.  
  96. ; typedef struct ComponentResource  ComponentResource
  97. ; typedef ComponentResource  *ComponentResourcePtr, **ComponentResourceHandle
  98. ComponentPlatformInfo     RECORD    0
  99. componentFlags             ds.l   1        ; offset: $0 (0)        ; flags of Component 
  100. component                 ds     ResourceSpec ; offset: $4 (4)    ; resource where Component code is found 
  101. platformType             ds.w   1        ; offset: $A (10)        ; gestaltSysArchitecture result 
  102. sizeof                     EQU *            ; size:   $C (12)
  103.                         ENDR
  104.  
  105. ; typedef struct ComponentPlatformInfo  ComponentPlatformInfo
  106. ComponentResourceExtension RECORD    0
  107. componentVersion         ds.l   1        ; offset: $0 (0)        ; version of Component 
  108. componentRegisterFlags     ds.l   1        ; offset: $4 (4)        ; flags for registration 
  109. componentIconFamily         ds.w   1        ; offset: $8 (8)        ; resource id of Icon Family 
  110. sizeof                     EQU *            ; size:   $A (10)
  111.                         ENDR
  112.  
  113. ; typedef struct ComponentResourceExtension  ComponentResourceExtension
  114. ComponentPlatformInfoArray RECORD    0
  115. count                     ds.l   1        ; offset: $0 (0)
  116. platformArray             ds     ComponentPlatformInfo ; offset: $4 (4)
  117. sizeof                     EQU *            ; size:   $10 (16)
  118.                         ENDR
  119.  
  120. ; typedef struct ComponentPlatformInfoArray  ComponentPlatformInfoArray
  121. ExtComponentResource     RECORD    0
  122. cd                         ds     ComponentDescription ; offset: $0 (0) ; registration parameters 
  123. component                 ds     ResourceSpec ; offset: $14 (20)    ; resource where Component code is found 
  124. componentName             ds     ResourceSpec ; offset: $1A (26)    ; name string resource 
  125. componentInfo             ds     ResourceSpec ; offset: $20 (32)    ; info string resource 
  126. componentIcon             ds     ResourceSpec ; offset: $26 (38)    ; icon resource 
  127. componentVersion         ds.l   1        ; offset: $2C (44)        ; version of Component 
  128. componentRegisterFlags     ds.l   1        ; offset: $30 (48)        ; flags for registration 
  129. componentIconFamily         ds.w   1        ; offset: $34 (52)        ; resource id of Icon Family 
  130. count                     ds.l   1        ; offset: $36 (54)        ; elements in platformArray 
  131. platformArray             ds     ComponentPlatformInfo ; offset: $3A (58)
  132. sizeof                     EQU *            ; size:   $46 (70)
  133.                         ENDR
  134.  
  135. ; typedef struct ExtComponentResource  ExtComponentResource
  136. ComponentParameters     RECORD    0
  137. flags                     ds.b   1        ; offset: $0 (0)        ; call modifiers: sync/async, deferred, immed, etc 
  138. paramSize                 ds.b   1        ; offset: $1 (1)        ; size in bytes of actual parameters passed to this call 
  139. what                     ds.w   1        ; offset: $2 (2)        ; routine selector, negative for Component management calls 
  140. params                     ds.l   1        ; offset: $4 (4)        ; actual parameters for the indicated routine 
  141. sizeof                     EQU *            ; size:   $8 (8)
  142.                         ENDR
  143.  
  144. ; typedef struct ComponentParameters  ComponentParameters
  145. ComponentRecord         RECORD    0
  146. data                     ds.l   1        ; offset: $0 (0)
  147. sizeof                     EQU *            ; size:   $4 (4)
  148.                         ENDR
  149.  
  150. ; typedef struct ComponentRecord  ComponentRecord
  151. ; typedef ComponentRecord     *Component
  152. ComponentInstanceRecord RECORD    0
  153. data                     ds.l   1        ; offset: $0 (0)
  154. sizeof                     EQU *            ; size:   $4 (4)
  155.                         ENDR
  156.  
  157. ; typedef struct ComponentInstanceRecord  ComponentInstanceRecord
  158. ; typedef ComponentInstanceRecord  *ComponentInstance
  159. ; typedef long                 ComponentResult
  160. ; typedef ComponentRoutineProcPtr  ComponentRoutine
  161. ;
  162. ;    The parameter list for each ComponentFunction is unique. It is 
  163. ;    therefore up to users to create the appropriate procInfo for their 
  164. ;    own ComponentFunctions where necessary.
  165. ;
  166. ; typedef UniversalProcPtr     ComponentFunctionUPP
  167. ;
  168. ; pascal Component RegisterComponent(ComponentDescription *cd, ComponentRoutineUPP componentEntryPoint, short global, Handle componentName, Handle componentInfo, Handle componentIcon)
  169. ;
  170.     IF ¬ GENERATINGCFM THEN
  171.         Macro
  172.         _RegisterComponent
  173.             moveq    #1,d0
  174.             dc.w     $A82A
  175.         EndM
  176.     ELSE
  177.         IMPORT_CFM_FUNCTION    RegisterComponent
  178.     ENDIF
  179.  
  180. ;
  181. ; pascal Component RegisterComponentResource(ComponentResourceHandle tr, short global)
  182. ;
  183.     IF ¬ GENERATINGCFM THEN
  184.         Macro
  185.         _RegisterComponentResource
  186.             moveq    #18,d0
  187.             dc.w     $A82A
  188.         EndM
  189.     ELSE
  190.         IMPORT_CFM_FUNCTION    RegisterComponentResource
  191.     ENDIF
  192.  
  193. ;
  194. ; pascal OSErr UnregisterComponent(Component aComponent)
  195. ;
  196.     IF ¬ GENERATINGCFM THEN
  197.         Macro
  198.         _UnregisterComponent
  199.             moveq    #2,d0
  200.             dc.w     $A82A
  201.         EndM
  202.     ELSE
  203.         IMPORT_CFM_FUNCTION    UnregisterComponent
  204.     ENDIF
  205.  
  206. ;
  207. ; pascal Component FindNextComponent(Component aComponent, ComponentDescription *looking)
  208. ;
  209.     IF ¬ GENERATINGCFM THEN
  210.         Macro
  211.         _FindNextComponent
  212.             moveq    #4,d0
  213.             dc.w     $A82A
  214.         EndM
  215.     ELSE
  216.         IMPORT_CFM_FUNCTION    FindNextComponent
  217.     ENDIF
  218.  
  219. ;
  220. ; pascal long CountComponents(ComponentDescription *looking)
  221. ;
  222.     IF ¬ GENERATINGCFM THEN
  223.         Macro
  224.         _CountComponents
  225.             moveq    #3,d0
  226.             dc.w     $A82A
  227.         EndM
  228.     ELSE
  229.         IMPORT_CFM_FUNCTION    CountComponents
  230.     ENDIF
  231.  
  232. ;
  233. ; pascal OSErr GetComponentInfo(Component aComponent, ComponentDescription *cd, Handle componentName, Handle componentInfo, Handle componentIcon)
  234. ;
  235.     IF ¬ GENERATINGCFM THEN
  236.         Macro
  237.         _GetComponentInfo
  238.             moveq    #5,d0
  239.             dc.w     $A82A
  240.         EndM
  241.     ELSE
  242.         IMPORT_CFM_FUNCTION    GetComponentInfo
  243.     ENDIF
  244.  
  245. ;
  246. ; pascal long GetComponentListModSeed(void)
  247. ;
  248.     IF ¬ GENERATINGCFM THEN
  249.         Macro
  250.         _GetComponentListModSeed
  251.             moveq    #6,d0
  252.             dc.w     $A82A
  253.         EndM
  254.     ELSE
  255.         IMPORT_CFM_FUNCTION    GetComponentListModSeed
  256.     ENDIF
  257.  
  258. ; Component Instance Allocation and dispatch routines 
  259. ;
  260. ; pascal ComponentInstance OpenComponent(Component aComponent)
  261. ;
  262.     IF ¬ GENERATINGCFM THEN
  263.         Macro
  264.         _OpenComponent
  265.             moveq    #7,d0
  266.             dc.w     $A82A
  267.         EndM
  268.     ELSE
  269.         IMPORT_CFM_FUNCTION    OpenComponent
  270.     ENDIF
  271.  
  272. ;
  273. ; pascal OSErr CloseComponent(ComponentInstance aComponentInstance)
  274. ;
  275.     IF ¬ GENERATINGCFM THEN
  276.         Macro
  277.         _CloseComponent
  278.             moveq    #8,d0
  279.             dc.w     $A82A
  280.         EndM
  281.     ELSE
  282.         IMPORT_CFM_FUNCTION    CloseComponent
  283.     ENDIF
  284.  
  285. ;
  286. ; pascal OSErr GetComponentInstanceError(ComponentInstance aComponentInstance)
  287. ;
  288.     IF ¬ GENERATINGCFM THEN
  289.         Macro
  290.         _GetComponentInstanceError
  291.             moveq    #10,d0
  292.             dc.w     $A82A
  293.         EndM
  294.     ELSE
  295.         IMPORT_CFM_FUNCTION    GetComponentInstanceError
  296.     ENDIF
  297.  
  298. ; Direct calls to the Components 
  299. ;
  300. ; pascal long ComponentFunctionImplemented(ComponentInstance ci, short ftnNumber)
  301. ;
  302.     IF ¬ GENERATINGCFM THEN
  303.         Macro
  304.         _ComponentFunctionImplemented
  305.             dc.w     $2F3C
  306.             dc.w     $0002
  307.             dc.w     $FFFD
  308.             moveq    #0,d0
  309.             dc.w     $A82A
  310.         EndM
  311.     ELSE
  312.         IMPORT_CFM_FUNCTION    ComponentFunctionImplemented
  313.     ENDIF
  314.  
  315. ;
  316. ; pascal long GetComponentVersion(ComponentInstance ci)
  317. ;
  318.     IF ¬ GENERATINGCFM THEN
  319.         Macro
  320.         _GetComponentVersion
  321.             dc.w     $2F3C
  322.             dc.w     $0000
  323.             dc.w     $FFFC
  324.             moveq    #0,d0
  325.             dc.w     $A82A
  326.         EndM
  327.     ELSE
  328.         IMPORT_CFM_FUNCTION    GetComponentVersion
  329.     ENDIF
  330.  
  331. ;
  332. ; pascal long ComponentSetTarget(ComponentInstance ci, ComponentInstance target)
  333. ;
  334.     IF ¬ GENERATINGCFM THEN
  335.         Macro
  336.         _ComponentSetTarget
  337.             dc.w     $2F3C
  338.             dc.w     $0004
  339.             dc.w     $FFFA
  340.             moveq    #0,d0
  341.             dc.w     $A82A
  342.         EndM
  343.     ELSE
  344.         IMPORT_CFM_FUNCTION    ComponentSetTarget
  345.     ENDIF
  346.  
  347. ; Component Management routines 
  348. ;
  349. ; pascal void SetComponentInstanceError(ComponentInstance aComponentInstance, OSErr theError)
  350. ;
  351.     IF ¬ GENERATINGCFM THEN
  352.         Macro
  353.         _SetComponentInstanceError
  354.             moveq    #11,d0
  355.             dc.w     $A82A
  356.         EndM
  357.     ELSE
  358.         IMPORT_CFM_FUNCTION    SetComponentInstanceError
  359.     ENDIF
  360.  
  361. ;
  362. ; pascal long GetComponentRefcon(Component aComponent)
  363. ;
  364.     IF ¬ GENERATINGCFM THEN
  365.         Macro
  366.         _GetComponentRefcon
  367.             moveq    #16,d0
  368.             dc.w     $A82A
  369.         EndM
  370.     ELSE
  371.         IMPORT_CFM_FUNCTION    GetComponentRefcon
  372.     ENDIF
  373.  
  374. ;
  375. ; pascal void SetComponentRefcon(Component aComponent, long theRefcon)
  376. ;
  377.     IF ¬ GENERATINGCFM THEN
  378.         Macro
  379.         _SetComponentRefcon
  380.             moveq    #17,d0
  381.             dc.w     $A82A
  382.         EndM
  383.     ELSE
  384.         IMPORT_CFM_FUNCTION    SetComponentRefcon
  385.     ENDIF
  386.  
  387. ;
  388. ; pascal short OpenComponentResFile(Component aComponent)
  389. ;
  390.     IF ¬ GENERATINGCFM THEN
  391.         Macro
  392.         _OpenComponentResFile
  393.             moveq    #21,d0
  394.             dc.w     $A82A
  395.         EndM
  396.     ELSE
  397.         IMPORT_CFM_FUNCTION    OpenComponentResFile
  398.     ENDIF
  399.  
  400. ;
  401. ; pascal OSErr CloseComponentResFile(short refnum)
  402. ;
  403.     IF ¬ GENERATINGCFM THEN
  404.         Macro
  405.         _CloseComponentResFile
  406.             moveq    #24,d0
  407.             dc.w     $A82A
  408.         EndM
  409.     ELSE
  410.         IMPORT_CFM_FUNCTION    CloseComponentResFile
  411.     ENDIF
  412.  
  413. ; Component Instance Management routines 
  414. ;
  415. ; pascal Handle GetComponentInstanceStorage(ComponentInstance aComponentInstance)
  416. ;
  417.     IF ¬ GENERATINGCFM THEN
  418.         Macro
  419.         _GetComponentInstanceStorage
  420.             moveq    #12,d0
  421.             dc.w     $A82A
  422.         EndM
  423.     ELSE
  424.         IMPORT_CFM_FUNCTION    GetComponentInstanceStorage
  425.     ENDIF
  426.  
  427. ;
  428. ; pascal void SetComponentInstanceStorage(ComponentInstance aComponentInstance, Handle theStorage)
  429. ;
  430.     IF ¬ GENERATINGCFM THEN
  431.         Macro
  432.         _SetComponentInstanceStorage
  433.             moveq    #13,d0
  434.             dc.w     $A82A
  435.         EndM
  436.     ELSE
  437.         IMPORT_CFM_FUNCTION    SetComponentInstanceStorage
  438.     ENDIF
  439.  
  440. ;
  441. ; pascal long GetComponentInstanceA5(ComponentInstance aComponentInstance)
  442. ;
  443.     IF ¬ GENERATINGCFM THEN
  444.         Macro
  445.         _GetComponentInstanceA5
  446.             moveq    #14,d0
  447.             dc.w     $A82A
  448.         EndM
  449.     ELSE
  450.         IMPORT_CFM_FUNCTION    GetComponentInstanceA5
  451.     ENDIF
  452.  
  453. ;
  454. ; pascal void SetComponentInstanceA5(ComponentInstance aComponentInstance, long theA5)
  455. ;
  456.     IF ¬ GENERATINGCFM THEN
  457.         Macro
  458.         _SetComponentInstanceA5
  459.             moveq    #15,d0
  460.             dc.w     $A82A
  461.         EndM
  462.     ELSE
  463.         IMPORT_CFM_FUNCTION    SetComponentInstanceA5
  464.     ENDIF
  465.  
  466. ;
  467. ; pascal long CountComponentInstances(Component aComponent)
  468. ;
  469.     IF ¬ GENERATINGCFM THEN
  470.         Macro
  471.         _CountComponentInstances
  472.             moveq    #19,d0
  473.             dc.w     $A82A
  474.         EndM
  475.     ELSE
  476.         IMPORT_CFM_FUNCTION    CountComponentInstances
  477.     ENDIF
  478.  
  479. ; Useful helper routines for convenient method dispatching 
  480. ;
  481. ; pascal long CallComponentFunction(ComponentParameters *params, ComponentFunctionUPP func)
  482. ;
  483.     IF ¬ GENERATINGCFM THEN
  484.         Macro
  485.         _CallComponentFunction
  486.             dc.w     $70FF
  487.             dc.w     $A82A
  488.         EndM
  489.     ELSE
  490.         IMPORT_CFM_FUNCTION    CallComponentFunction
  491.     ENDIF
  492.  
  493. ;
  494. ; pascal long CallComponentFunctionWithStorage(Handle storage, ComponentParameters *params, ComponentFunctionUPP func)
  495. ;
  496.     IF ¬ GENERATINGCFM THEN
  497.         Macro
  498.         _CallComponentFunctionWithStorage
  499.             dc.w     $70FF
  500.             dc.w     $A82A
  501.         EndM
  502.     ELSE
  503.         IMPORT_CFM_FUNCTION    CallComponentFunctionWithStorage
  504.     ENDIF
  505.  
  506. ;
  507. ; pascal long DelegateComponentCall(ComponentParameters *originalParams, ComponentInstance ci)
  508. ;
  509.     IF ¬ GENERATINGCFM THEN
  510.         Macro
  511.         _DelegateComponentCall
  512.             moveq    #36,d0
  513.             dc.w     $A82A
  514.         EndM
  515.     ELSE
  516.         IMPORT_CFM_FUNCTION    DelegateComponentCall
  517.     ENDIF
  518.  
  519. ;
  520. ; pascal OSErr SetDefaultComponent(Component aComponent, short flags)
  521. ;
  522.     IF ¬ GENERATINGCFM THEN
  523.         Macro
  524.         _SetDefaultComponent
  525.             moveq    #30,d0
  526.             dc.w     $A82A
  527.         EndM
  528.     ELSE
  529.         IMPORT_CFM_FUNCTION    SetDefaultComponent
  530.     ENDIF
  531.  
  532. ;
  533. ; pascal ComponentInstance OpenDefaultComponent(OSType componentType, OSType componentSubType)
  534. ;
  535.     IF ¬ GENERATINGCFM THEN
  536.         Macro
  537.         _OpenDefaultComponent
  538.             moveq    #33,d0
  539.             dc.w     $A82A
  540.         EndM
  541.     ELSE
  542.         IMPORT_CFM_FUNCTION    OpenDefaultComponent
  543.     ENDIF
  544.  
  545. ;
  546. ; pascal Component CaptureComponent(Component capturedComponent, Component capturingComponent)
  547. ;
  548.     IF ¬ GENERATINGCFM THEN
  549.         Macro
  550.         _CaptureComponent
  551.             moveq    #28,d0
  552.             dc.w     $A82A
  553.         EndM
  554.     ELSE
  555.         IMPORT_CFM_FUNCTION    CaptureComponent
  556.     ENDIF
  557.  
  558. ;
  559. ; pascal OSErr UncaptureComponent(Component aComponent)
  560. ;
  561.     IF ¬ GENERATINGCFM THEN
  562.         Macro
  563.         _UncaptureComponent
  564.             moveq    #29,d0
  565.             dc.w     $A82A
  566.         EndM
  567.     ELSE
  568.         IMPORT_CFM_FUNCTION    UncaptureComponent
  569.     ENDIF
  570.  
  571. ;
  572. ; pascal long RegisterComponentResourceFile(short resRefNum, short global)
  573. ;
  574.     IF ¬ GENERATINGCFM THEN
  575.         Macro
  576.         _RegisterComponentResourceFile
  577.             moveq    #20,d0
  578.             dc.w     $A82A
  579.         EndM
  580.     ELSE
  581.         IMPORT_CFM_FUNCTION    RegisterComponentResourceFile
  582.     ENDIF
  583.  
  584. ;
  585. ; pascal OSErr GetComponentIconSuite(Component aComponent, Handle *iconSuite)
  586. ;
  587.     IF ¬ GENERATINGCFM THEN
  588.         Macro
  589.         _GetComponentIconSuite
  590.             moveq    #41,d0
  591.             dc.w     $A82A
  592.         EndM
  593.     ELSE
  594.         IMPORT_CFM_FUNCTION    GetComponentIconSuite
  595.     ENDIF
  596.  
  597.     ENDIF ; __COMPONENTS__
  598.